Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
Лабораторна робота №2 з курсу
«Об'єктно-орієнтоване програмування»
Компоненти Delphi.
Архітектура проекту в середовищі програмування DELPHI
Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту.
Порядок виконання роботи:
Створити проект для виконання індивідуального завдання.
Оформити звіт для захисту лабораторної роботи за зразком
назва роботи
мета роботи
зміст індивідуального завдання
тексти головного файлу проекту, програмних модулів та файлів форм
аналіз отриманих результатів та висновки
Завдання
Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску).
Додати спадне меню з розширеннями при відкритті файлів.
Текст програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N4: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N3: TMenuItem;
N7: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure N8Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type info=record
hello:string[10];
end;
var
Form1: TForm1;
F:file of info;
r: info;
ryd:string[25];
implementation
uses Unit6, Unit11, Unit12, Unit13;
{$R *.dfm}
procedure TForm1.N8Click(Sender: TObject);
begin
Close
end;
procedure TForm1.N3Click(Sender: TObject);
begin
AboutBox.Show
end;
procedure TForm1.N5Click(Sender: TObject);
//var i: integer;
begin
if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
insert(OpenDialog1.FileName,ryd,1);
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Memo1.Clear
end;
procedure TForm1.N7Click(Sender: TObject);
begin
close
end;
procedure TForm1.N6Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName=OpenDialog1.FileName then
begin
OKBottomDlg1.Show
end
else
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;
end;
end.
unit Unit7;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox1 = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox1: TAboutBox1;
implementation
{$R *.dfm}
unit Unit13;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Dialogs;
type
TOKBottomDlg1 = class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
SaveDialog1: TSaveDialog;
Label1: TLabel;
procedure OKBtnClick(Sender: TObject);
procedure CancelBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
OKBottomDlg1: TOKBottomDlg1;
implementation
uses Unit1;
{$R *.dfm}
procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
begin
Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.Filename);
//Memo1.Lines.SaveToFile(SaveDialog1.Filename);
// 'D:\dobrui den...
